Funciones 


2) Diseñar una función que calcule la potencia enésima de un 
número, es decir que calcule X n para X, real y n entero 


MA didaa AS 
float Potencia(float x,int n) 
1 

float resultado=1; 

int aux=n; 

if(n<0) 

aux*=-1; 
while (aux) 


resultado*=x; 
aux--; 


} 

if(n<0) 
resultado=1/resultado; 

return resultado; 


4) Utilizando como primitivas las operaciones *, +, - y /, escriba 
algoritmos que implementen las siguientes primitivas: 

. EsDivisiblePor: recibe dos números enteros N y D, y 
devuelve verdadero si N es divisible por D, y falso en caso 
contrario. 

. ValorAbsoluto: recibe un número entero N, y devuelve el 
valor absoluto de N. 

. RaizCuadradaEntera: recibe un número natural N, y 
devuelve la raíz entera (sin decimales) de N. Ej: si N es 10, se 
devuelve 3. 

. EsCuadradoPerfecto: recibe un número natural N, y 
devuelve verdadero si N es cuadrado perfecto; falso en caso 
contrario. 

. Resto: recibe dos nros enteros N y D, y devuelve el resto 
de dividir N por D. 

° Potencia: recibe una base real B y un exponente entero E, 
y devuelve B elevado a la E. 

. CantidadDeCifras: recibe un número entero N, y devuelve 
la cantidad de dígitos de N (ej: si N = 3421, devuelve 4) 

Obs.: el operador “/" representa la división. Cuando se lo aplica 

a dos enteros Z1 y Z2, Z1 / Z2 corresponde a la división entera 

entre Z1 y Z2. Cuando se los aplica a reales R1 y R2, la división 

R1 / R2 corresponde a la división real. 


VA ldai didaa didi a iii iii ii a 
char EsDivisiblePor(int N,int D) 
while(N>D) 
N-=D; 
if(!N) 


return 1; 


else 


return 0; 
} 
MA 
int ValorAbsoluto(int N) 
1 
if(N<0) 
N*=-1; 
return N; 
} 
MA 
int RaizCuadradaEntera(int Num) 
1 
int ini,fin,resul,rant,cuad; 
ini=0; 
fin=Num/2; 
while(ini<fin) 
1 
rant=resul; 
resul=(ini+fin)/2; 
cuad=resul*resul; 
if (cuad<0) 
fin/=2; 
else 
{ 
if(cuad==Num) 
return resul; 
if(cuad>Num) 
fin=resul-1; 
else 
ini=resul+1; 
) 
if(cuad>Num) 
return rant; 
else 
return resul; 
} 
fanas aaa aaa 
int EsCuadradoPerfecto(int N) 
1 
int raiz,cuad; 
raiz=Raiz(N); 
cuad=raiz*raiz; 
if(cuad==N) 
return 1; 
else 
return 0; 
} 
VA 
int Resto(int N,int D) 
1 
while (N>=D) 
N-=D; 
return N; 
} 
fa 


float Potencia(float x,int n) 


float resultado=1; 


int aux=n; 
if(n<0) 
aux*=-1; 
while(aux) 
1 
resultado*=x; 
auX--; 


} 

if(n<0) 
resultado=1/resultado; 

return resultado; 


CantidadDeCifras(int N) 


int cifras=0; 
while(N) 


N/=10; 
cifras++; 


return cifras; 


El Tercer Teorema de Fermat enuncia que no existen números 
enteros x, y, Z, tales que para un número natural n, n > 2, se 
verifique que xn+yn=zn. Sin embargo, el matemático francés 
Pierre Fermat (1601-1665) tan sólo enunció el teorema anterior, 
pero no pudo demostrarlo. . . (según él, porque la hoja que tenía 
en ese momento no le alcanzaba). Quizás el teorema sea falso. 
Para asegurar eso habría que encontrar un contraejemplo, esto 
es, bastaría encontrar tres números x; y; z y un valor n mayor 
que 2 tales que xn+yn=zn. 

Obs.: para n = 2, lo anterior puede satisfacerse; Ejemplo: 32 
+42 = 52). 

Escriba un algoritmo que determine si el Tercer Teorema de 
Fermat se cumple para cualquier entero entre 0 y 20, conn = 3 
y n = 4. (Es decir, el algoritmo deberá devolver verdadero si no 
existen valores x; y; z comprendidos entre 0 y 20, tales que para 
n=3 y n=4, resulte xn+yn=zn). 


žinclude <stdio.h> 
žinclude <math.h> 


struct Dato 


{ 


int 


{ 


int x,y,z,pot; 


main(void) 


struct Dato dato; 


dato=Fermat(); 
if(dato.pot==-1) 
printf("Se cumple el TeoremaNn"); 


else 
1 
printf("Para x=%d y=%d ",dato.x,dato.y); 
printf("z=%d elevado a %din",dato.z,dato.pot); 
printf("No se cumple el Teoremainin”); 
return 0; 
} 
MA 
struct Dato Fermat(void) 
1 
struct Dato result; 
float tot,zp; 
for(result.pot=3;result.pot<=4; result .pot++) 
1 
for(result.x=1;result.x<21;result.x++) 
1 

for(result.y=1;result.y<21;result.y++) 

Į 
tot=pow(result.x,result.pot)+pow(result.y,result.pot); 
zp=pow(tot,1.0/result.pot); 
if(zp==(int)zp) 

Į 
result.z=zZp; 
return result; 
} 
} 
} 
} 
result.x=-1; 
result.y=-1; 
result.z=-1; 
result .pot=-1; 
return result; 
} 
"A J iii didi a aids a a e i a a a aa a a a a a a a = 


8) Escribir un programa que calcule el número de billetes de 
10.000, 5.000, 1,000, así como de monedas de 500, 100, 25,5 y 
1 pesetas para desglosar una cantidad, C, de pesetas (menor de 
2.147.483.647), de forma que se necesite la menor cantidad de 
monedas y billetes de cada tipo. 


struct Billetes 
{ 


int DiezMil,CincoMil,Mil,Quinientos,Cien,Veinticinco,Cinco,Uno; 


int main(void) 


{ 


struct Billetes Valor; 

int Monto; 

printf("AnIngrese el monto a calcular "); 

scanf ("%d" ,6Monto); 

Valor=CalculaCantidad (Monto); 

printf("An Billetes de 10.000 -> %d", Valor.DiezMil); 
Billetes de 5.000 -> %d" ,Valor.CincoMil); 


printf("Nn 
printf("An Billetes de 1.000 -> “d" ,Valor.Mil); 
printf("An Monedas de 500 -> %d", Valor.Quinientos); 
printf("An Monedas de 100 -> d" ,Valor.Cien); 
printf("An Monedas de 25 -> %d",Valor.Veinticinco); 
printf("Nn Monedas de 5 -> %d",Valor.Cinco); 
printf("An Monedas de 1 -> $dinin",Valor.Uno); 
} 
PLE A a O ii 
struct Billetes CalculaCantidad(int Monto) 
{ 
struct Billetes Valor={0,0,0,0,0,0,0,0}; 
Valor.DiezMil=Monto/10000; 
Monto%=10000; 
Valor.CincoMil=Monto/5000; 
Monto%=5000; 
Valor.Mil=Monto/1000; 
Monto%=1000; 
Valor.Quinientos=Monto/500; 
Monto%=500; 
Valor.Cien=Monto/100; 
Monto%=100; 
Valor.Veinticinco=Monto/25; 
Monto%=25; 
Valor.Cinco=Monto/5; 
Monto*=5; 
Valor .Uno=Monto; 
return Valor; 
} 
MA a a a a a a a a a a a a a a a aaa e e 


10) Escribir un programa que calcule la sumatoria: 


S | 1 
25D T 
i=1 


i 
Donde S es un número entero positivo introducido por teclado. 
Solución: El límite de esa expresión cuando S tiende a infinito 
es: -0.822467. 


#include <stdio.h> 
#include <math.h> 


int main(void) 

1 
int S; 
printf("AnIngrese el limite de la sumatoria "); 
scanf ("%d",&S); 


printf("MnNnLa sumatoria de los %d ",S); 
printf("primeros terminos es: %fin",Serie(S)); 


return 0; 
} 
E E 
float Serie(int S) 
1 

float result=0; 

int i; 

for(i=1;i<=S;1++) 

result+=pow(-1,i)/pow(i,2); 

return result; 
} 
[fin a a O 


Funciones Recursivas 


15) Escribir una función que calcule el factorial de un número y 
utilizar ésta en un programa que muestre el siguiente menú. 
1. Factorial de un número 
2. Cálculo de e 
3. Cálculo de e^x 
0. Salir 
Nota 1: El cálculo de e debe hacerse con la siguiente expresión 
matemática: 
| AIRES CARES | 
e=l+—+—+_—+ 
1 2 3! 


Nota 2: ex puede calcularse mediante la fórmula: 


Nota 3: La precisión con la que se obtiene el resultado (e o e x) 
depende del último valor añadido en la correspondiente serie. 


#include <stdio.h> 
#include <stdlib.h> 
#include <conio.h> 
#include <math.h> 


char Menu(void); 

void CalculoFactorial(void); 
void CalculoE(void); 

void CalculoEx(void); 

Tong int Factorial(int); 
float ValorEx(float,int); 


int main(void) 

Į 
char opcion; 
do 
Į 


opcion=Menu(); 


switch(opcion) 

{ 

case '1': 
CalculoFactorial(); 
break; 

case '2': 
CalculoE(); 
break; 

case '3': 
CalculoEx(); 
break; 


} 


while(opcion!='0'); 
return 0; 


char Menu(void) 
1 
char opcion; 
system("CLS"); 
printf("Mt1 - Calculo de Factorialinxt2 - Calculo de ein"); 
printf("Mt3 - Calculo de e^x\n\tO - Salirint"); 
printf("AninYtElija unn opcion: "); 
opcion=getche(); 
printf("Anin"); 
return opcion; 


void CalculoFactorial (void) 

1 
int Num; 
long int Fact; 
system("CLS"); 
printf("MnNtNtIngrese un numero: "); 
scanf( "d" ,8Num) ; 
Fact=Factorial (Num); 
printf("AninYtitSu factorial es: “ld", Fact); 
printf("AninYtPresione una tecla para continuar"); 
getch(); 


void CalculoE(void) 

1 
int Termino; 
float E; 
system("CLS"); 
printf ("\n\t\tIngrese la cantidad de terminos: "); 
scanf("%d", 8 Termino); 
E=ValorEx(1.0,Termino); 
printf("MnNnNtNtTET valor de e calculado con “d ",Termino); 
printf("terminos es: %f",E); 
printf("AninYtPresione una tecla para continuar"); 
getch() 


I 


void CalculoEx(void) 
{ 
int Termino; 
float X,Ex; 


system("CLS"); 
printf ("\n\t\tIngrese el valor de x: "); 
scanf ("%f",&X); 
printf ("\n\n\t\tIngrese la cantidad de terminos: "); 
scanf ("%d",&Termino); 
Ex=ValorEx(X,Termino); 
printf ("\n\n\t\tEL valor de e^%f calculado con ",X); 
printf ("%d terminos es: %f",Termino,Ex); 
printf ("\n\n\tPresione una tecla para continuar"); 
) 


getch(); 
} 
MA 
long int Factorial(int Num) 
1 
long int Fact=1; 
if(Num<=1) 
return Fact; 
Fact*=(Factorial (Num-1)*Num) ; 
} 
fa 
float ValorEx(float X,int Termino) 
float Ex=1; 
if(!Termino) 
return Ex; 
return (pow(X,Termino)/Factorial(Termino))+ValorEx(X,Termino-1); 
} 
-annann A 
Strings 


17) Escribir un programa que pida una frase acabada en un punto y 
cuente las palabras que contiene. 


#include <stdio.h> 
#include <conio.h> 


fa 
int Palabras(char *); 
ff anas A a a 
int main(void) 
1 
char Frase[255]; 
int Cant=0; 
printf("Ingrese una frase terminada en un punto NnNn"); 
do 
Frase[Cant]=getche(); 
Cant++; 
} 
while((Frase[Cant-1]!='.')&&(Cant<255)); 
if(Frase[Cant-1]!='.') 
Frase[Cant-1]='.'; 
printf("\n\nLa cantidad de palabras es %d\n\n",Palabras(Frase)); 
} 
"AI aenn a a a O 


int Palabras(char *Frase) 


{ 


int Cant=0; 
while(*Frase!='.') 


while(*Frase!=' '664*Frase!='.') 
Frase++; 

Cant++; 

if(*Frase!=',.') 
Frase++; 


return Cant; 


} 
PE e AN a e e 
23) Escribir un programa que cuente de un texto introducido por 
teclado: 
. N.2 de caracteres en blanco 


N.? de dígitos 

N.? de letras 

N.? de líneas 

N.? de otros caracteres 

Nota 1: Se deben crear sendas funciones para comprobar si un 
carácter es numérico o alfanumérico. 

Nota 2: La función getchar() permite leer un carácter de 


teclado. 
"A O 
žinclude <stdio.h> 
"A O 


struct Valores 


int Blanco,Digitos,Letras,Lineas,Otros; 


void IngresaTexto(char *); 

void ObtieneValores(char *,struct Valores *); 
int DeterminaCaracteres (char); 

void ImprimeResultados(struct Valores); 


[fin a a aa a a a aa a a H n a a aa ai a aaa e aiaa Eaa 
int main(void) 
{ 
char Texto[255]=""; 
struct Valores Datos={0,0,0,0,0}; 
IngresaTexto(Texto); 
ObtieneValores (Texto,6Datos); 
ImprimeResultados (Datos); 
return 0; 
} 
VA A aae iaa a 
void IngresaTexto(char *Texto) 
{ 


int Largo=0; 
printf("AnIngrese un texto\n"); 
do 


*Texto=getchar(); 
Largo++; 
Texto++; 


} 
while(((*(Texto-1)!='\n')]](*(Texto-2)!='\n'))&&(Largo<255)); 
*(Texto-1)='\0'; 


void ObtieneValores(char *Texto,struct Valores” Datos) 


int Aux; 

while(*Texto) 

1 
Aux=DeterminaCaracteres(*Texto); 
switch(Aux) 

{ 

case 1: 
Datos->Blanco++; 
break; 

case 2: 
Datos->Digitos++; 
break; 

case 3: 
Datos->Letras++; 
break; 

case 4: 
Datos->Lineas++; 
break; 

case 5: 
Datos->0tros++; 
break; 

} 


Texto++; 


int DeterminaCaracteres(char Caracter) 
{ 

if(Caracter==' ') 
return 1; 

if((Caracter>='0')86(Caracter<='9')) 
return 2; 

if((Caracter>='A')G6(Caracter<='Z')) 
return 3; 

if((Caracter>='a')G6(Caracter<='z')) 
return 3; - 

if((Caracter=="A')| | (Caracter=="N')) 
return 3; | 

if((Caracter=='á')||(Caracter=='A')) 
return 3; : 

if((Caracter=='é')||(Caracter=='E')) 
return 3; , 

if((Caracter=='í')||(Caracter=='I')) 
return 3; į 

if((Caracter=='6')||(Caracter=='0')) 
return 3; É 

if((Caracter=='ú')||(Caracter=='U')) 
return 3; y 

if((Caracter=='ú')||(Caracter=='U')) 
return 3; 

if(Caracter=='Yn') 
return 4; 

return 5; 


void ImprimeResultados(struct Valores Datos) 


printf("MnNnNnN*" de caracteres en blanco: “d" „Datos .Blanco); 
printf ("\n\nN° de dígitos : %d", ,Datos.Digitos); 
printf("AnYnN”* de letras : %d",Datos.Letras); 
printf ("\n\nN° de líneas : %d",Datos.Lineas); 
printf("AnYnN”* de otros caracteres : Sdinin",Datos.Otros); 


) 


26) Escribir un programa que pida primero un carácter por teclado 
y que luego pida una cadena. El programa calculará cuántos 
caracteres tiene la cadena hasta que lea el carácter introducido 
primero. Se deberá mostrar un mensaje en pantalla con el 
número de caracteres introducidos hasta llegar al carácter 
primero. 


#include <stdio.h> 
#include <conio.h> 


LSS AAA EAT LAA ERA AS pa aaa a Mas 
struct Valores 
1 
int Blanco,Digitos,Letras,Lineas,Otros; 
y; 
NAAA LRD DRA A ARAS A AR si 


void IngresaTexto(char *); 
int ObtieneValor(char *,char); 


int main(void) 

1 
char Caracter,Texto[255]=""; 
int Cantidad; 
printf("AnIngrese un caracter :"); 
Caracter=getche(); 
printf("AnIngrese un textoNn"); 
IngresaTexto(Texto); 
Cantidad=0btieneValor(Texto,Caracter); 
printf("Aninla cantidad de caracteres hasta"); 
printf(" %c es: %d\n\n",Caracter,Cantidad); 


return 0; 
} 
"iai O e a A o 
void IngresaTexto(char *Texto) 
Į 
int Largo=0; 
do 
*Texto=getchar(); 
Largo++; 
Texto++; 
} 
while((*(Texto-1)!='\n')&&(Largo<255)); 
*(Texto-1)='\0'; 
} 
PAS E rio a e eea iS ia 


int ObtieneValor(char *Texto,char Caracter) 


int Cantidad=1; 
while(*Textos4(*Texto!=Caracter)) 


Į 
Cantidad++; 
Texto++; 


return Cantidad; 


Estructuras 


29) Escribir un programa gue lea dos nūmeros complejos y permita 
realizar con ellos las siguientes operaciones aritmėticas: suma, 
resta, multiplicación y division 
Nota 1: Se debe crear una función de permita leer un número 
complejo (su parte real y su parte imaginaria). 

Nota 2: Se debe crear una función de permita pasar un número 
complejo en forma parte real y parte imaginaria a módulo y 
argumento. Se debe crear una función que permita pasar un 
número complejo en forma módulo y argumento a parte real y 
parte imaginaria. 

Nota 3: La suma y resta de números complejos se obtiene 
sumando, o restando, las partes reales y las partes complejas. 
El producto de dos números complejos se obtiene multiplicando 
sus módulos y sumando sus argumentos. 

El cociente de dos números complejos se obtiene dividiendo sus 
módulos y restando sus argumentos. 


#include <stdio.h> 
#include <stdlib.h> 
#include <math.h> 

#include <conio.h> 


struct Comp 


float X,Y; 


int Menu(void); 

struct Comp Ingresar(char *); 

struct Comp Suma(struct Comp,struct Comp); 
struct Comp Resta(struct Comp,struct Comp); 
struct Comp Producto(struct Comp,struct Comp); 
struct Comp Cociente(struct Comp,struct Comp); 
struct Comp CartesianoPolar(struct Comp); 
struct Comp PolarCartesiano(struct Comp); 

void MostrarResultado(struct Comp); 


int main(void) 

1 
struct Comp Operando1,0perando2,Resultado; 
int Opcion; 
do 


Opcion=Menu(); 
if(Opcion!=5) 
{ 


Operandol=Ingresar("primer"); 
Operando2=Ingresar("segundo"); 


switch (Opcion) 

{ 

case 1: 
Resultado=Suma (Operando1 ,Operando2); 
break; 

case 2: 
Resultado=Resta(Operando1 ,0Operando2); 
break; 

case 3: 
Resultado=Producto (Operando1 ,Operando2) ; 
break; 

case 4: 
Resultado=Cociente (Operando1,0perando2); 
break; 


) 
if(Opcion!=5) 
MostrarResultado (Resultado); 


} 
while(Opcion!=5); 


return 0; 
} 
YAA a sk di A 
int Menu(void) 
{ 
int Opcion; 
system("CLS"); 
printf("MndnNt1 - SumarinXt2 - Restar"); 
printf("AnXt3 - Multiplicarinxt4 - Dividir"); 
printf("AnXt5 - SalirininElija una opción ( 1 - 5 ) : "); 
scanf ("%d" ,$0pcion); 
return Opcion; 
} 
VO ERAS A A A e e ii iii 
struct Comp Ingresar(char *Texto) 
1 
struct Comp Operando; 
printf("MnNnIngrese el %s operando1ninParte real : ",Texto); 
scanf ("%f" S0perando.X); 
printf("AnParte imaginaria : "); 
scanf ("%f" S0perando.Y); 
return Operando; 
} 
A PASS A a a A i O 


struct Comp Suma(struct Comp PrimOper,struct Comp Seg0per) 
{ 
struct Comp Resultado; 
Resultado.X=Prim0Oper.X+Seg0per.X; 
Resultado.Y=Prim0Oper.Y+Seg0per.Y; 
return Resultado; 


struct Comp Resta(struct Comp PrimOper,struct Comp Seg0per) 
1 


struct Comp Resultado; 
Resultado.X=Prim0Oper.X-Seg0per.X; 
Resultado.Y=Prim0Oper.Y-Seg0per.Y; 
return Resultado; 


struct Comp Producto(struct Comp PrimOper,struct Comp Seg0per) 
1 
struct Comp Resultado; 
PrimOper=CartesianoPolar(Prim0Oper); 
Seg0per=CartesianoPolar(Seg0per); 
Resultado.X=Prim0Oper.X*Seg0per.X; 
Resultado.Y=Prim0Oper.Y+Seg0per.Y; 
Resultado=PolarCartesiano(Resultado) ; 
return Resultado; 


struct Comp Cociente(struct Comp Prim0Oper,struct Comp Seg0per) 


struct Comp Resultado; 
PrimOper=CartesianoPolar(Prim0Oper); 
Seg0per=CartesianoPolar(Seg0Oper); 
Resultado.X=Prim0Oper.X/Seg0per.X; 
Resultado.Y=Prim0Oper.Y-Seg0per.Y; 
Resultado=PolarCartesiano(Resultado) ; 
return Resultado; 


} 
UNS sl SS SS E E A E E S S 
void MostrarResultado(struct Comp Operando) 
{ 
printf ("\n\n\tEL resultado es:\n\n"); 
printf ("\n\t\tx= %f\t\ty= %f\n\n",O0perando.X,0perando.Y); 
printf ("\n\nPresione una tecla para continuar"); 
getch(); 
} 
ASS O a ii S i iii i e a 
struct Comp CartesianoPolar(struct Comp Operando) 
1 
struct Comp Resultado; 
Resultado.X=sqrt(pow(Operando.X,2)+pow(Operando.Y,2)); 
Resultado .Y=atan2(Operando.Y,Operando.X) ; 
return Resultado; 
} 
iki o e a ili p A ee TS i 
struct Comp PolarCartesiano(struct Comp Operando) 
{ 
struct Comp Resultado; 
Resultado.X=0perando.X*cos(Operando.Y); 
Resultado.Y=0perando.X*sin(Operando.Y); 
return Resultado; 
} 
Y SAA ii a ii E NO e o AN 
Archivos 


34) Leer completamente un fichero de texto, carácter a carácter (o 
en cantidades mayores, para que sea más rápido). El programa 


debe contar las vocales, los caracteres alfabėticos y los digitos 
gue hay en el fichero. 


#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include <conio.h> 


void ProcesarArchivo(char *,int *,int *,int *); 
void ImprimirResultados (int ,int,int); 
void DeterminarTipo(char,int *,int *,int *); 


A AKR RR 
int main(void) 
1 
char Nombre[255]=""; 
int Vocales=0,Letras=0,Digitos=0; 
do 
1 
system("CLS"); 
printf("AninIngrese el nombre del archivo : "); 
gets (Nombre); 
while(!'strcmp(Nombre,"")); 
ProcesarArchivo(Nombre,6Vocales, Letras, 4Digitos); 
ImprimirResultados(Vocales,Letras,Digitos); 
return 0; 
} 
"liks o O SRT ai EA i ee SR 


void ProcesarArchivo(char *Nombre,int *Vocal,int *Letra,int *Digit) 
{ 

FILE *fp; 

char Caract; 

if(!(fp=fopen(Nombre,"r"))) 

1 


} 

while(!feof(fp)) 

{ 
Caract=fgetc(fp); 
DeterminarTipo(Caract,Vocal,Letra,Digit); 


} 
fclose(fp); 


void ImprimirResultados(int Vocal,int Letra,int Digit) 


printf("\n\nLa cantidad de Vocales es : %d",Vocal); 
printf("\nLa cantidad de Letras es : %d",Letra); 
printf("\nLa cantidad de Digitos es : %d\n",Digit); 


void DeterminarTipo(char Caract,int *Vocal,int *Letra,int *Digit) 

{ 
if(((Caract>='a')&&(Caract<='z'))]|]((Caract>='A')&&(Caract<='Z'))) 
{ 


if((Caract=='a')||(Caract=='A')||(Caract=='e')) 


(*Vocal)++; 
return; 
} 
if((Caract=='E')||(Caract=='i')||(Caract=='I')) 
(*Vocal)++; 
return; 
} 
T E A ATI, 
(*Vocal)++; 
return; 
} 
if(Caract=='U') 
(*Vocal)++; 
return; 
} 
(*Letra)++; 
return; 


} 
AE S 


(*Digit)++; 
return; 


